home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 2 / Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso / arcade / tronics_2091 / redover.amos / redover.amosSourceCode < prev    next >
AMOS Source Code  |  1995-01-01  |  839b  |  43 lines
  1. Screen Open 0,320,256,2,Lowres : Cls 0 : Hide 
  2. For I=1 To 5 : Channel I To Bob I : Next 
  3. BIKE$="M 215,0,10;"
  4. SLIDE$="M -87,0,40;P;"
  5. SLIDEC$="M 87,0,40;"
  6. GAME$="M 0,-100,100;"
  7. OVER$="M 0,-50,50;"
  8. Unpack 2 To 1 : Double Buffer : Get Sprite Palette : Colour 0,$5
  9. Bob 4,63,130,4
  10. Bob 3,75,130,5
  11. Limit Bob 3,0,0 To 320,128 : Limit Bob 4,0,0 To 320,128
  12. Amal 4,GAME$ : Amal 3,OVER$ : Amal On 4 : Wait 50 : Amal On 3
  13. Wait 110
  14.   Bob 1,-100,128,2
  15.   Amal 1,BIKE$ : Amal On 1
  16.    Wait 10
  17.    Bob 2,98,132,3
  18.   Bob 1,102,129,1
  19.   Amal 2,SLIDE$
  20.   Wait 25
  21.   Amal On 2
  22.   Wait 10
  23.   Clear Key 
  24.   Wait Key 
  25.   Amal 2,SLIDEC$
  26.   Amal On 2
  27.   Wait 40
  28.   Bob 1,99,129,2
  29.   Bob Off 2
  30.   Wait 20
  31.   Amal 1,BIKE$ : Amal On 1
  32. Wait 12
  33. Bob Off 1
  34. Wait 10
  35. G$="M -260,0,20;"
  36. O$="M 250,0,20;"
  37. Amal 4,G$ : Amal 3,O$
  38. Amal On 
  39. Wait 50
  40. Bob Off 
  41. Bob 1,134,118,6
  42. Wait 20
  43. Run "TRONICS.AMOS"